#!
$FileName = "files\\file.txt";
open (F,$FileName) || die "Can not open $FileName: $!\n";
@contents = <F>;
close F;
$all = join('',@contents);
$all = reverse $all;
print $all;